home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / toc.dir / 00193_Pipeline demo.ls < prev    next >
Encoding:
Text File  |  1997-01-16  |  587 b   |  22 lines
  1. on mouseDown
  2.   puppetSprite(13, 1)
  3.   set the memberNum of sprite 13 to the number of member "W-PIPE DOWN.PICT"
  4.   updateStage()
  5.   puppetSound("Squishy")
  6. end
  7.  
  8. on mouseUp
  9.   set the memberNum of sprite 13 to the number of member "W-PIPE UP.PICT"
  10.   updateStage()
  11.   puppetSprite(13, 1)
  12.   SetReturn()
  13.   delay(60)
  14.   puppetSprite(13, 0)
  15.   unloadMember(member "WATER DOWN.PICT", "Squishy")
  16.   if the machineType = 256 then
  17.     alert("To launch demo, run SETUP.EXE in IQDIGIZINE CD-ROM folder: DEMOS\PIPELINE.")
  18.   else
  19.     alert("Sorry, this demo does not run on Macintosh computers.")
  20.   end if
  21. end
  22.